home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side A).do / SOUND.EFFECTS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  34 lines
  1. 10  REM  SOUND.EFFECTS
  2. 12  TEXT : HOME : SPEED= 255
  3. 13  DIM A$(5)
  4. 15 D$ =  CHR$(4)
  5. 20  FOR I = 1 TO 5: READ A$(I): VTAB 12: CALL  -868: HTAB 5: PRINT A$(I): PRINT D$;A$(I): NEXT 
  6. 30  HOME : VTAB 3: PRINT "ALLEN MAYNARD": PRINT "1603 FARMSTEAD AVENUE": PRINT "HACIENDA HEIGHTS, CALIFORNIA  91745": PRINT : PRINT "SAYS....."
  7. 40  PRINT : PRINT "   YOU CAN USE THESE SOUND EFFECTS IN"
  8. 50  PRINT : PRINT "YOUR OWN PROGRAMS."
  9. 60  PRINT : PRINT "   LIST THIS PROGRAM AND IT WILL BE"
  10. 70  PRINT : PRINT "OBVIOUS HOW TO BLOAD AND CALL THEM."
  11. 80  PRINT : HTAB 10: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$
  12. 100  HOME : HTAB 16: INVERSE : PRINT " SOUND FFECTS ": NORMAL : VTAB 4
  13. 120  HTAB 8: PRINT "1 = UFO.TAKE-OFF (CALL 4307)
  14. 130  PRINT : HTAB 8: PRINT "2 = BOUNCE (CALL 4993)
  15. 140  PRINT : HTAB 8: PRINT "3 = OUTER.SPACE (CALL 5159)"
  16. 150  PRINT : HTAB 8: PRINT "4 = DIVE.STRAFING (CALL 5334)"
  17. 160  PRINT : HTAB 8: PRINT "5 = HELICOPTER (CALL 5548)"
  18. 170  PRINT : HTAB 8: PRINT "6 = ALL OF 'EM"
  19. 190  PRINT : HTAB 8: PRINT "7 = BACK TO SOFTDISK"
  20. 200  VTAB 19: CALL  -868: VTAB 19: PRINT " WHICH ";: GET R$: PRINT R$
  21. 205  VTAB 19: PRINT "           ";: FLASH : PRINT "                  ": NORMAL 
  22. 210  IF R$ = "1"  THEN  CALL 4307: GOTO 200
  23. 220  IF R$ = "2"  THEN  CALL 4993: GOTO 200
  24. 230  IF R$ = "3"  THEN  CALL 5159: GOTO 200
  25. 240  IF R$ = "4"  THEN  CALL 5334: GOTO 200
  26. 250  IF R$ = "5"  THEN  CALL 5548: GOTO 200
  27. 260  IF R$ = "6"  THEN  CALL 4307: CALL 4993: CALL 5159: CALL 5334: CALL 5548: GOTO 200
  28. 280  IF R$ = "7"  THEN  PRINT D$"RUN KICK.IT.OFF"
  29. 290  GOTO 200
  30. 1000  DATA  "BLOAD UFO.TAKE-OFF (CALL 4307)"
  31. 1010  DATA  "BLOAD BOUNCE (CALL 4993)"
  32. 1020  DATA  "BLOAD OUTER.SPACE (CALL 5159)"
  33. 1030  DATA  "BLOAD DIVE.STRAFING (CALL 5334)"
  34. 1050  DATA  "BLOAD HELICOPTER (CALL 5548)"